%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% This code generates a parameter structure for the case of EIS ~= 1
% All values are in quarterly values
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [I , J] = param_EIS_RE(psi)

if psi < 1
    error('Psi must be less than 1!')
end

I = param_Data;

%% Preference parameters
I.psi = psi;                                    %EIS coefficient
I.theta = (1-I.gamma)/(1-1/I.psi); 

%% Log-linearization
J = calculateAcoeff_EIS_RE(I);

%% Log SDF coefficients
I.tmu_m_s = log(I.delta) - 0.5 * (1 - I.gamma) * (1/I.psi - I.gamma) * I.sigma^2;

end